|
|
|
|
|
|
|
RemoveThis = False
Next so
If starttimer Then
EnablePanel False
TargetState = SERVICE_STOPPED
Changed = True
Else
Set ChangesInProgress = Nothing
End If
End Sub
' Starts the selected services
Private Sub cmdStart_Click()
Dim so As ServiceObject
Dim stat As ServiceStatus
Dim starttimer As Boolean
Dim RemoveThis As Boolean
Dim res&
Call OpenSelectedServices
For Each so In ChangesInProgress
Set stat = so.QueryServiceStatus
If stat.CurrentState <> SERVICE_RUNNING Then
res = so.StartService
If res <> Then
starttimer = True
Else
RemoveThis = True
End If
Else
RemoveThis = True
End If
If RemoveThis Then ChangesInProgress.Remove stat.Name
RemoveThis = False
Next so
If starttimer Then
EnablePanel False
TargetState = SERVICE_RUNNING
Changed = True
Else
Set ChangesInProgress = Nothing
End If
End Sub |
|
|
|
|
|